# Read the CSV file
work <- read.csv("workLog.csv")
# Convert Date column to Date type
work$Date <- as.Date(work$Date, format = "%m/%d")
# Create the bar chart
ggplotly(
ggplot(work, aes(x = Date, y = Time, text=Desc)) +
geom_bar(stat = "identity") +
labs(x = "Date (MM/DD)", y = "Time (Minutes)", title="Work Log"))